program MyList;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  pelement = ^element;
  element = record
    value: integer;
    next: pelement;
  end;

procedure AddToBegin (var head: pelement; num: integer);
  var
    tmp: pelement;
  begin
    tmp:= head;
    new(head);
    head^.value:= num;
    head^.next:= tmp;
  end;
procedure AddToEnd (var head: pelement; num: integer);
  var
    current: pelement;
  begin
    if (head<>nil) then
    begin
      current:=head;
      while (current^.next<>nil) do
        current:=current^.next;
      new(current^.next);
      current^.next^.next:=nil;
      current^.next^.value:=num;
    end else begin
      AddToBegin(head, num);
    end;
  end;

procedure PrintList(head: pelement);
  var
    current: pelement;
    n:integer;
  begin
    current:= head;
    n:=0;
    while (current<>nil) do
    begin
      n:=n+1;
      writeln(current^.value+n);
      current:=current^.next;
    end;
  end;

var
  n, i, a: integer;
  fin: textFile;
  head, tmp, current: pelement;
begin
  assignFile(fin, 'input.txt');
  reset(fin);
  readln(fin, n);
  for i := 0 to n-1 do
  begin
    readln(fin, a);
    AddToEnd(current, a);
  end;
  PrintList(current);
  close(fin);
  readln;
end.
